Attribute VB_Name = "mdlSettings"
Option Explicit

Public app_path As String
Public work_path As String
Public setting_path As String
Public save_path As String
Public program_path As String







Public Sub initpath()
    app_path = App.path & "\"
    work_path = app_path & "workspace\"
    setting_path = app_path & "Setting\"
    save_path = app_path & "GTdata\"
    program_path = app_path & "Program\"
    
    BuildFolder work_path
    BuildFolder setting_path
    BuildFolder save_path
    BuildFolder program_path
End Sub
